WITH Note;

PACKAGE Matiere IS
   SUBTYPE Longueur IS Natural range 0 .. 20;
   SUBTYPE Coefficient IS Positive range 1 .. 8;

   TYPE Matiere IS PRIVATE;

   FUNCTION CreerMatiere return Matiere;

PRIVATE
   TYPE Matiere (Selon : Longueur := 0) IS RECORD
      Un_Intitule : String (1 .. Selon);
      Un_Coefficient : Coefficient := 1;
      Une_Note : Note.Note;
   END RECORD;

END Matiere;
